<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_indice Dim rs_indice_numRows Set rs_indice = Server.CreateObject("ADODB.Recordset") rs_indice.ActiveConnection = MM_cc_STRING rs_indice.Source = "SELECT * FROM carloscoelho.dossier_roaming ORDER BY numero ASC, subnumero ASC" rs_indice.CursorType = 0 rs_indice.CursorLocation = 2 rs_indice.LockType = 1 rs_indice.Open() rs_indice_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>
Roaming
 
Índice
 
<% while not rs_indice.eof if rs_indice.Fields.Item("subnumero").Value = 0 then %>

<%=chr(64+rs_indice.Fields.Item("numero").Value)%>. <%=(rs_indice.Fields.Item("pergunta").Value)%>

<%else%>

"><%=(rs_indice.Fields.Item("subnumero").Value)%>. <%=(rs_indice.Fields.Item("pergunta").Value)%>

<% end if rs_indice.movenext wend %>
 
 
 
     
<% rs_indice.Close() Set rs_indice = Nothing %>